home *** CD-ROM | disk | FTP | other *** search
/ Super Shareware Collection / Super Shareware Collection.iso / os_2 / clisp.zip / SCREEN.LSP < prev    next >
Text File  |  1994-02-05  |  1KB  |  34 lines
  1. (in-package "SCREEN" :use '("LISP"))
  2.  
  3. #|
  4. ; Re-Export von importierten Symbolen kann man nicht mit der
  5. ; P I S E R U I - Regel erreichen. Diese Symbole muß man zuerst importieren.
  6. (in-package "SYSTEM")
  7. (import '(make-window window-size
  8.           window-cursor-position set-window-cursor-position
  9.           clear-window clear-window-to-eot clear-window-to-eol
  10.           delete-window-line insert-window-line
  11.           highlight-on highlight-off window-cursor-on window-cursor-off
  12.          )
  13.         "SCREEN"
  14. )
  15. (in-package "SCREEN")
  16. |#
  17.  
  18. (export '(make-window window-size
  19.           window-cursor-position set-window-cursor-position
  20.           clear-window clear-window-to-eot clear-window-to-eol
  21.           delete-window-line insert-window-line
  22.           highlight-on highlight-off window-cursor-on window-cursor-off
  23.           with-window *window*
  24. )        )
  25.  
  26. (proclaim '(special *window*))
  27.  
  28. (defmacro with-window (&body body)
  29.   `(LET ((*WINDOW* (MAKE-WINDOW)))
  30.      (UNWIND-PROTECT (PROGN ,@body) (CLOSE *WINDOW*))
  31.    )
  32. )
  33.  
  34.